﻿Public Class mastitle
    Private titleID = Nothing
    Private titleTitle = Nothing
    Private titleCOLOR = Nothing
    Private titlePICID = Nothing
    Private titleStatus = Nothing
    Private ttype As Integer = Nothing
    Private selectMastitle = "SELECT `id` as 'รหัสเรื่อง', `title` as 'ชื่อเรื่อง',`status` as 'สถานะการเปิดใช้งาน' FROM mastitle WHERE `ttype` = '1'"
    Private selectMastitle2 = "SELECT `id` as 'รหัสเรื่อง', `title` as 'ชื่อเรื่อง',`status` as 'สถานะการเปิดใช้งาน' FROM mastitle WHERE `ttype` = '2'"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property ttype_() As Integer
        Get
            Return ttype
        End Get
        Set(value As Integer)
            ttype = value
        End Set
    End Property
    Property titleID_ As Integer
        Get
            Return titleID
        End Get
        Set(value As Integer)
            titleID = value
        End Set
    End Property

    Property titleTitle_ As String
        Get
            Return titleTitle
        End Get
        Set(value As String)
            titleTitle = value
        End Set
    End Property

    Property titleCOLOR_ As String
        Get
            Return titleCOLOR
        End Get
        Set(value As String)
            titleCOLOR = value
        End Set
    End Property

    Property titlePICID_ As Integer
        Get
            Return titlePICID
        End Get
        Set(value As Integer)
            titlePICID = value
        End Set
    End Property

    Property titleStatus_ As Boolean
        Get
            Return titleStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                titleStatus = 1
            Else
                titleStatus = 0
            End If
        End Set
    End Property
    Property selectMastitle2_ As String
        Get
            Return selectMastitle2
        End Get
        Set(value As String)

        End Set
    End Property
    Property selectMastitle_ As String
        Get
            Return selectMastitle
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMastitleData()
        If titleTitle <> "" Then 'And titleCOLOR <> "" And titlePICID > 0
            If TypeOf titleTitle Is String Then 'And TypeOf titleCOLOR Is String
                If connect.GetTable("SELECT id FROM mastitle WHERE title = '" & titleTitle & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลการแจ้งเตือนผู้ป่วยนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim servertitleID As Integer

                        servertitleID = connect.ExecuteScalar("INSERT INTO mastitle (title, color, picid, status,ttype) VALUES ('" & titleTitle & "', '" & titleCOLOR & "', '" & titlePICID & "', '" & titleStatus & "','1'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASTITLE (ID, TITLE, COLOR, PICID, STATUS,TTYPE) VALUES ('" & servertitleID & "', '" & titleTitle & "', '" & titleCOLOR & "', '" & titlePICID & "', '" & titleStatus & "','1')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลการแจ้งเตือนผู้ป่วยเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีข้อมูลอารมณ์ผู้ป่วยนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMastitleData()
        If titleTitle <> "" And titleID > 0 Then 'And titleCOLOR <> "" And titlePICID > 0
            If TypeOf titleTitle Is String Then 'And TypeOf titleCOLOR Is String
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    Dim queryString As String
                    queryString = "UPDATE mastitle SET title = '" & titleTitle & "', color = '" & titleCOLOR & "', "

                    If titlePICID Is Nothing Then
                        queryString += "picid = NULL, "
                    Else
                        queryString += "picid = '" & titlePICID & "', "
                    End If

                    queryString += "status = '" & titleStatus & "' WHERE id = '" & titleID & "'"

                    connect.ExecuteNonQuery(queryString)
                    'connectlocal.ExecuteNonQuery(queryString)
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลการแจ้งเตือนผู้ป่วยเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสตำแหน่งนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
                'connectlocal.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
    Public Sub insertMastitleData2()
        If titleTitle <> "" Then 'And titleCOLOR <> "" And titlePICID > 0
            If TypeOf titleTitle Is String Then 'And TypeOf titleCOLOR Is String
                If connect.GetTable("SELECT id FROM mastitle WHERE title = '" & titleTitle & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim servertitleID As Integer

                        servertitleID = connect.ExecuteScalar("INSERT INTO mastitle (title, color, picid, status,ttype) VALUES ('" & titleTitle & "', '" & titleCOLOR & "', '" & titlePICID & "', '" & titleStatus & "','2'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASTITLE (ID, TITLE, COLOR, PICID, STATUS,TTYPE) VALUES ('" & servertitleID & "', '" & titleTitle & "', '" & titleCOLOR & "', '" & titlePICID & "', '" & titleStatus & "','1')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีข้อมูลนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
   
End Class
